0 GOTO20
1 @L:PRINT"[147]";:LIST7000-7999
2 @P:PRINT"[147]";:LIST1000-1049
3 @T:PRINT"[147]";:LIST14000-14999
20 POKE2,255:POKE9,0:PRINTCHR$(142):POKE808,225:POKE53280,0:POKE53281,0
30 PRINT"[142][147][158]
40 [159]1,8,15,"I":[159]8,8,8,"#"
41 [152]1,"U1"8;0;19;0:[152]1,"B-P"8;254:[161]#8,A$:[161]#8,B$:[161]#8,T$:[161]#8,T$
42 [160]8:[160]1:[139]A$[178]""[167]DA[178]100:[137]47
43 [139]T$[178]""[167]DA[178]100:[137]47
44 [139][198](T$)[178]1[167]DA[178]100:[137]47
45 [139]B$[178]""[167]B$[178][199](0)
46 [151]0,[198](B$):[151]2,[198](A$):DA[178][194](2)
47 :
48 [139]AG[178]0[167][139]DA[177]23[176]DA[178]0[167][153]"DATENDISK EINLEGEN":[146]203,63:AG[178]1:[137]20
50 :
51 [156]:[134]C$(26),D$(10),E$(26):L$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
52 L$[178]L$[170]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":[134]DI$(350)
53 R$[178]"":PZ[178][194](0):[134]A$(PZ[170]2)
55 CO[178][194](9):[140]:[129]I[178]1[164]23:[135]C$(I):[130]
60 [129]I5[178]1[164]10:[135]D$(I5):[139]D$(I5)[179][177]"***"[167][130]
90 DA[178][194](2):[137]101
100 [160]8:[160]1:T[178]240:FE[178]0:[138]40:[143] GOTO55
101 T[178]240:[137]20000
110 [139]DA[178]255[167]127
126 [153]"SICHER ? ";:[151]198,0:[146]203,63:[161]A$:[146]203,64:[139]A$[179][177]"J"[167]100
127 [153]A$"SYSBITTE WARTEN."
128 [152]1,"B-P"8,0:[152]8,"@@@":[152]1,"B-P"8,254:[152]8,[199](1)[199](0);
129 [129]I[178]0[164]18:[152]1,"U2"8;0;19;I:[141]51000:[130]:DA[178]1:PZ[178]0
130 [129]I[178]1[164]5:[152]8,"."[199](13);:[130]:[152]1,"U2"8;0;18;18:[160]8:[160]1:[138]
1000 [143]                                           *****  READ  *****
1001 LE[178]0:[141]1002:[137]1100
1002 [141]30000:[141]10000:F[178]1:[139]Z[179][177]DA[167][142]
1003 [139]F[178]3[167]X2[178]NZ:[137]1005
1004 X2[178]0:Y[178]0:X[178]1:[139][201](N$,1)[178]"*"[167]N$[178][200](N$,[195](N$)[171]1)
1005 :
1006 [129]X2[178]X2[164]18:NZ[178]X2:LE[178]1
1007 B$[178]"":[139]Y[177]T[167]Y[178]0:[130]X2
1010 [129]X[178]X[164]PZ[171]1:B$[178]DI$(X)
1011 DI$[178]B$:J[178]J[170][195](B$):[139]B$[178]"@@@"[167]PZ[178]X:[137]1030
1012 [143] Y=J:X=X+1:GOSUB51000
1013 :
1014 [137]1016
1015 [129]J[178]1[164]1:[129]X[178]Y[170]1[164]PZ[170]1:Y[178]X[171]1:B$[178][200](DI$(X[171]1),[195](N$)):[139]DI$(X[171]1)[178]"@@@"T
1016 [139]F[178]1[176]F[178]3[167][139]N$[178][200](B$,[195](N$))[167]X[178]X[170]1:[137]1050
1017 [139]N$[179][177]B$[167]B$[178]""
1018 [139][194](203)[178]64[167][130]X:Y[178]0:[137]1050
1020 [139][194](203)[179][177]64[167][153]"OPENSUCHE ABGEBROCHEN.":[129]I[178]1[164]2000:[130]:[137]100
1030 [139]F[178]1[176]F[178]3[167][153]"NICHTS (MEHR) GEFUNDEN.":[146]203,63:[146]203,64:[137]100
1040 [139]F[178]2[167]B$[178]"":[142]
1050 [142]
1100 [143]   ***** NOT DIR.DATA READ
1105 [139]LE[179][177]1[167]1150
1110 N[178]X[171]1:[141]50000:[152]1,"U1";8;0;SP;SE:[141]4000:[139]A$[178]"N"[167]100
1120 [139]X[179]PZ[167]F[178]3:[141]1003:[137]1110
1140 [137]100
1150 [129]I2[178]1[164]PZ:N[178]I2[171]1:[141]50000
1155 [139][194](203)[179][177]64[167][153]"OPENSUCHE ABGEBROCHEN.":[129]I[178]1[164]2000:[130]:[137]100
1160 [152]1,"U1";8;0;SP;SE:[129]J2[178]1[164]Z:[132]8,A$:[130]
1165 [139]S[178]1[167]A$[178][200](A$,[195](N$))
1170 [139]A$[179][177]N$[167][130]:[153]"NICHTS (MEHR) GEFUNDEN.":[146]203,63:[137]100
1180 [141]4000:[139]A$[178]"N"[167]100
1190 [130]:[130]:[137]100
2000 [143]                                           ***** WRITE  *****
2005 [141]5000:F[178]2:[141]1003:X[178]PZ:[139]Y[178]0[167]Y[178][171]1
2007 [143] PRINT"Y="Y"PZ="PZ"N="N"X="X:STOP
2010 [152]1,"B-P";8;Y[170]1:[139]PZ[177]299[167][137]19900
2020 [152]8,E$(DA)[199](13)"@@@":[152]1,"U2";8;0;19;X2:[141]51000
2030 N[178]X:[141]50000:[152]1,"U1"8;0;SP;SE:[152]1,"B-P"8;0
2035 [143] PRINT"SP/SE:"SP;SE:STOP
2040 [129]I[178]1[164]13:[152]8,E$(I):[130]:[152]1,"U2"8;0;SP;SE:N[178]N[170]300:[141]50000
2050 [152]1,"B-P"8;0:[129]I[178]14[164]23:[152]8,E$(I):[130]
2060 [152]1,"U2"8;0;SP;SE:[152]1,"U1"8;0;19;0:[152]1,"B-P"8;254:[152]8,[199](DA)[199](PZ[170]1);
2062 [152]1,"B-P"8;254:[152]8,[199](DA)[199](PZ[170]1);
2065 [152]1,"U2"8;0;19;0
2070 [151]0,[194](0)[170]1
2100 [141]10000:[138]40
3000 [143]                                           *****DIRECTORY****
3001 [139]DI$(0)[178]""[167]A$[178]"D":[137]3004
3002 [153]"CONTDISKETTENDIRECTORY ODER SPEICHER ?":[146]203,64:[146]203,63
3003 [161]A$:[151]198,0
3004 [153]"LOADCONT   MOMENTANE DATENART IM VERZEICHNIS:   ";
3005 [153]"                                        ON";
3006 [153][200](R$,20[171][195](C$(DA)))C$(DA):[129]I[178]1[164]2000:[130]:[153]""
3008 [139]A$[178]"D"[167]3012
3009 [129]I[178]0[164]PZ[171]1:[153]""I[170]1;DI$(I):[139][194](203)[178]64[167][130]
3010 [129]J[178]1[164]1000:[130]:[137]100
3012 X[178]0:[152]1,"B-P";8;0:[129]I[178]0[164]18:[152]1,"U1";8;0;19;I:[141]51000:[129]J[178]0[164]T
3015 X[178]X[170]1:[132]8,A$:DI$(X[171]1)[178]A$:[139]A$[178]"@@@"[167]3030
3020 [153]X;A$:J[178]J[170][195](A$):[139][194](203)[178]64[167][130]J:[130]I
3030 [146]203,63:[146]203,64:[137]100
4000 [143]  **** AUSGABE ****
4001 QQ[178]Y
4005 [143] PRINT"AKTUELLE SP/SE:"SP;SE:STOP
4010 [152]1,"B-P"8;0:[129]I[178]1[164]13:[132]8,E$(I):[130]:N[178]N[170]300:[141]50000:[153]"OPENLOAD"
4012 [152]1,"U1"8;0;SP;SE:[152]1,"B-P"8;0:[129]I[178]14[164]23:[132]8,E$(I):[130]
4020 [129]I[178]1[164]13:[139]E$(I)[179][177]"SIN"[167][153]"OPEN"C$(I)":  "
4021 [139]E$(I)[178]"SIN"[167]4030
4025 [139][195](E$(I))[179]24[167][153]"ON"[200](R$,14)E$(I):[137]4030
4027 [153]E$(I)
4030 [130]:[153]"CLR       BITTE TASTE DRUECKEN.OPEN":[146]203,63:[146]203,64:[153]"LOAD"
4040 [129]I[178]14[164]23:[139]E$(I)[179][177]"SIN"[167][153]"OPEN"C$(I)":  "
4041 [139]E$(I)[178]"SIN"[167]4050
4045 [139][195](E$(I))[179]21[167][153]"ON"[200](R$,18)E$(I):[137]4050
4047 [153]E$(I)
4050 [130]:[153]"CLR           WEITERSUCHEN ?":[151]198,0:[146]203,63:[161]A$:[146]203,64
4999 Y[178]QQ:[142]
5000 [143]  **** EINGABE ****
5010 [129]I[178]1[164]23:E$(I)[178]"SIN":[153]"LOAD"C$(I)"   "E$(I)[200](L$,[195](E$(I))[170]2);
5020 [133]E$(I):[139]E$(I)[178]"ERROR"[167]100
5025 [139][201](E$(I),1)[178]"*"[167][153]"UNMOEGLICH !":[129]QQ[178]1[164]1000:[130]:I[178]I[171]1
5030 [130]:[153]"LOAD"
5999 [142]
6000 [143]  **** VERBESSERN ****
6010 [153]"LOAD"C$(DA)"";:[133]N$
6015 F[178]1:[141]1003:[137]6030
6020 F[178]3:[141]1003
6030 N[178]X[171]1:[141]50000:[152]1,"U1"8;0;SP;SE:[152]1,"B-P"8;0:[141]4000
6032 [139]A$[178]"J"[167]6110
6033 [139]VF[178]1[167]VF[178]0:[137]100
6038 N[178]X[171]1:[141]50000:[152]1,"U1"8;0;SP;SE:[143] VF=1
6040 [129]I[178]1[164]13:[132]8,E$(I):[153]"OPENLOAD"C$(I)"   "E$(I)[200](L$,[195](E$(I))[170]2);
6050 [133]E$(I):[139][201](E$(I),1)[178]"*"[167][153]"UNMOEGLICH !":[129]I[178]1[164]2000:[130]:I[178]I[171]1
6060 [130]:[152]1,"B-P"8,0:[129]I[178]1[164]13:[152]8,E$(I):[130]:[153]"LOAD"
6065 [152]1,"U2"8;0;SP;SE:N[178]N[170]300:[141]50000:[152]1,"U1"8;0;SP;SE:[152]1,"B-P"8;0
6070 [129]I[178]14[164]23:[132]8,E$(I):[153]"LOAD"C$(I)"   "E$(I)[200](L$,[195](E$(I))[170]2);
6078 [151]198,0
6080 [133]E$(I):[139][201](E$(I),1)[178]"*"[167][153]"UNMOEGLICH !":[129]I[178]1[164]2000:[130]:I[178]I[170]1
6090 [130]:[152]1,"B-P"8,0:[129]I[178]14[164]23:[152]8,E$(I):[130]
6100 :[152]1,"U2"8;0;SP;SE:[153]"LOAD":[153]"CLR      WEITERSUCHEN ?"
6105 [146]203,63:[161]A$:[139]A$[178]"N"[167]6170
6110 [139]X[179]PZ[167]6020
6170 [137]100
7000 [143]   **** CHANGE SP.19 ****
7010 [153]"LOADSYSWELCHE DATEN SOLLEN IN DIE LISTE :":F[178]20:X[178]0
7020 [141]30100:[153]"LOADSICHER ?":[146]203,63
7021 [161]A$:[139]A$[178]""[167]7021
7022 [139]A$[179][177]"J"[167]7100
7025 [153]"DATEN WERDEN GELESEN.":[141]7030:[141]7055:[137]7100
7030 Z2[178]Z:[129]I[178]1[164]PZ:[143] PRINT"N="N
7035 N[178]I[171]1:[139]Z[177]13[167]N[178]I[170]299:Z2[178]Z[171]13
7040 [141]50000:[152]1,"U1"8;0;SP;SE:[152]1,"B-P"8;0:[139][194](203)[179][177]64[167]100
7043 [153]"NOCH ZU LESENDE DATEN:"PZ[171]I"CMD   ON"
7050 [129]J[178]1[164]Z2:[132]8,A$(I):[130]:[130]:[142]
7055 [153]"LISTE WIRD ANGELEGT."
7060 [152]1,"B-P"8,254:[152]8,[199](Z);[199](PZ):[151]2,Z:[153]"CONT
7065 PZ=PZ+1:A$(PZ)="@@@"
7070 X=0:FORI=0TO18:PRINT#1,"B-P"8;0:FORJ=0TOT:X=X+1:PRINT#8,A$(X)
7071 :
7073 REM PRINT"NOCH ZU SCHREIBENDE DATEN:"PZ-X+1"[157]   [145]"
7075 IFX>PZTHENPRINT#1,"U2"8;0;19;I:RETURN
7080 J=J+LEN(A$(X))
7090 NEXTJ:PRINT#1,"U2"8;0;19;I:NEXTI:RETURN
7100 PZ=PZ-1
7999 GOTO100
8000 REM **** CODE ****
8010 PRINT"[147]BITTE GEBEN SIE JETZT IHREN CODE EIN.":POKE198,0:CO$="":POKE9,0
8020 WAIT203,63:GETA$:IFA$=""THEN8020
8030 IFASC(A$)<>13THENCO$=CO$+A$:GOTO8020
8040 PRINT#1,"U1"8;0;18;18:PRINT#1,"B-P"8;0:FORI=1TO5:INPUT#8,V$
8048 GOSUB9400:IFV$<>CO$THENNEXT:GOTO8900:REM"[141][145][145][145][145]
8050 [152]1,"U1"8;0;19;0:[151]9,I:[141]10000:[137]100
8900 [153]"          CODE UNGUELTIG.":[146]203,63
8920 [137]100
8999 [146]203,63:[137]100
9000 [143] **** CHANGE PARAM. ****
9005 [160]8:[160]1:[159]1,8,15,"I":[159]8,8,8,"#"
9010 [153]"LOADDEFMOMENTANE KONSTANTEN:":[152]1,"U1"8;0;19;0:[152]1,"B-P"8;254
9020 [161]#8,A$,B$:[152]1,"U1"8;0;18;18:[152]1,"B-P"8;0:[129]I[178]1[164]5:[132]8,V$(I):[130]
9025 [129]I[178]1[164]5:V$[178]V$(I):[141]9400:V$(I)[178]V$:[130]
9030 [139]A$[178]""[167]A$[178][199](0)
9031 [139]B$[178]""[167]B$[178][199](0)
9040 DA[178][198](A$):PZ[178][198](B$):[153]"CONT1WAIT DATENART:"DA"(="C$(DA)")"
9041 [153]"2WAIT FILEANZAHL:"PZ:[151]0,PZ
9042 [153]"  DIE CODES IN IHRER HIRARCHISCHEN
9043 PRINT"  REIHENFOLGE:":FORI=1TO5:PRINT""RIGHT$(STR$(I+2),1)"[146]",V$(I):NEXT
9045 PRINT"8[146] GAR NICHTS"
9050 PRINT"[153]WAS SOLL GEANDERT WERDEN ?                 (NUMMER DRUECKEN)
9060 [146]203,63:[161]A$:[139]A$[178]""[167]9060
9070 [139][197](A$)[179]1[176][197](A$)[177]8[167]9060
9080 [139]A$[178]"8"[167]100
9090 [145][197](A$)[141]9100,9200,9300,9300,9300,9300,9300:[137]9000
9100 [153]"LOADCONTDATENART: (MOMENTAN"DA"CMD)":D2[178]DA[171]1:A$[178]"":[137]9115
9110 [146]203,63:[161]A$:[139]A$[178]""[167]9110
9115 [139][198](A$)[178]13[167]DA[178]D2:[152]1,"U1"8;0;19;0:[152]1,"B-P"8;254:[137]9170
9120 [139][194](653)[178]1[167]D2[178]D2[171]1:[137]9140
9130 D2[178]D2[170]1
9140 [139]D2[179]1[167]D2[178]1
9141 [139]D2[177]23[167]D2[178]23
9145 [153]"ON"D2"CMD  "C$(D2)"                ":[137]9110
9170 [152]8,[199](DA);:[152]1,"U2"8;0;19;0:[142]
9200 [153]"LOAD";:[133]"NEUE FILEANZAHL ";FZ:[139]FZ[179]0[176]FZ[177]255[167]9200
9210 [152]1,"U1"8;0;19;0:[152]1,"B-P",8;255:[152]8,[199](FZ);:[152]1,"U2"8;0;19;0
9220 [151]0,FZ:PZ[178]FZ:[142]
9300 [153]"LOAD":A[178][197](A$)[171]2
9301 [153]"DEFNEUER"A"CMD.CODE ";:[133]A$:[139]A$[178]V$(A)[167][142]
9310 [129]I[178]1[164]5:[139]A$[179][177]V$(I)[167][130]:[137]9330
9320 [153]"DAS IST SCHON DER"I"CMD.CODE !":[129]I[178]1[164]2000:[130]:[153]"LOAD":[137]9301
9330 [152]1,"U1"8;0;18;18:[139]A$[178]""[167][153]"WAS SOLL DAS ?":[129]I[178]1[164]2000:[130]:[153]"LOAD":[137]9301
9340 [152]1,"B-P"8;0:V$(A)[178]A$:[141]9450
9345 [129]I[178]1[164]5:[152]8,V$(I):[130]:[152]1,"U2"8;0;18;18
9350 [142]
9400 :
9410 C$[178]"":[129]KK[178]1[164][195](V$)
9420 C$[178]C$[170][199]([198]([202](V$,KK,1))[171]1):[130]:V$[178]C$:[142]
9450 [129]JJ[178]1[164]5:C$[178]"":[129]KK[178]1[164][195](V$(JJ))
9460 C$[178]C$[170][199]([198]([202](V$(JJ),KK,1))[170]1):[130]:V$(JJ)[178]C$:[130]:[142]
9999 [146]203,63:[137]100
10000 [143]  **** DIR READ  ****
10010 [153]"SYSBITTE WARTEN SIE EINEN MOMENT."
10030 X[178]0:[152]1,"B-P";8;0:[129]I[178]0[164]18:[152]1,"U1";8;0;19;I:[141]51000:[129]J[178]0[164]T
10040 [132]8,DI$(X):[139]DI$(X)[178]"@@@"[167]10060
10050 J[178]J[170][195](DI$(X)):X[178]X[170]1:[130]:[130]
10060 [142]
14000 [153]X;B$
14010 [142]
19900 [143]  **** DISK FULL ****
19910 [153]"";:A$[178]"DIE DISKETTE IST VOLL !":[129]I[178]1[164]20:[153]"ON";A$:AW[178][186]([255])
19920 [153]"ON"A$:[130]:[153]"DER VERSUCH MUSS ABGEBROCHEN WERDEN."
19930 [146]203,63:[146]203,64:[137]100
20000 [143]                                           ****  MENUE  ****
20005 [151]53280,0:[151]53265,39:SI[178]11
20010 [153]"LOAD";:[129]I[178]1[164]10:[153]"ORTAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN=TAN^"
20011 [129]I[178]1[164]10:[153]"PEEK PEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEK"
20012 [153]"-TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN<":[130]
20014 [153]"PEEK PEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEKCLOSEPEEK"
20015 [153]"/TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TANEXP"
20085 [151]53280,0:[151]53281,0:[151]198,0:F[178]23:[151]214,20:[153]:[151]211,31
20087 [153]"CONT1987":[153]"       BY HYPER PROG./NUREMBERG
20090 IFPEEK(2)>23ORPEEK(2)=0THENPRINT"[158]ERSTDISKETTEHEADERN!":GOTO20092
20091 GOTO20100
20092 IFCO=0ORCO>5THENCO=6
20100 PRINT"[159]";:GOSUB22000:POKE53265,27
20110 X=1153:POKEX,62:POKEX+54272,1
20120 GETA$:IFA$=""THEN20120
20125 IFASC(A$)=13THEN20160
20130 IFPEEK(653)=1THEND=-80:GOTO20140
20135 D=80
20140 IF(X+D)<1153OR(X+D)>(PEEK(209)+256*PEEK(210))THEN20120
20150 POKEX,32:X=X+D:POKEX,62:POKEX+54272,1:GOTO20120
20160 :
20200 OPEN1,8,15,"I":OPEN8,8,8,"#":POKE198,0:Z=(X-1153)/80+1:IFZ=2THENIFCO=6THEN20205
20202 IFPEEK(2)=0ORPEEK(2)>23THENIFZ<>7THENIFZ<>1THENIFZ<>9THEN21000
20205 :PRINT"[147]"
20207 IFCO=0THENONZGOTO8000
20210 IFCO=1THENONZGOTO8000,1000,2000,6000,7000,3000,110,9000
20220 IFCO=2THENONZGOTO1000,2000,6000,7000,3000
20230 IFCO=3THENONZGOTO1000,2000,6000,7000
20240 IFCO=4THENONZGOTO1000,2000,7000
20250 IFCO=5THENONZGOTO2000,7000
20260 IFCO=6THENONZGOTO110
20998 PRINT#1,"I":CLOSE1:CLOSE8:PRINT"[147]"LEFT$(R$,16)"THE END[144]":POKE9,0
20999 POKE808,237:END
21000 PRINT"[147][158]IHRE DISKETTE IST NOCH NICHT FUER DIE
21010 [153]"VERWENDUNG DURCH DIESE DATEI FORMATIERT.
21020 PRINT"BITTE AENDERN SIE DIES ENTWEDER DURCH
21022 [153]"EINLEGEN DER ENTSPRECHENDEN DISKETTE
21024 PRINT"ODER DURCH DIE FUNKTION 'HEADER'.
21100 [146]203,63:[146]203,64:[142]
22000 D$[178]"ONON":[139]CO[178]0[167][153][200](R$,SI)""D$(1)[199](13)[200](R$,SI)""D$(9):[142]
22010 [139]CO[178]2[167]D$(1)[178]D$:D$(7)[178]D$:D$(8)[178]D$
22020 [139]CO[178]3[167]D$(1)[178]D$:D$(7)[178]D$:D$(8)[178]D$:D$(6)[178]D$
22030 [139]CO[178]4[167]D$(1)[178]D$:D$(7)[178]D$:D$(8)[178]D$:D$(6)[178]D$:D$(4)[178]D$
22040 [139]CO[178]5[167]D$(1)[178]D$:D$(7)[178]D$:D$(8)[178]D$:D$(6)[178]D$:D$(4)[178]D$:D$(2)[178]D$
22045 [139]CO[178]6[167][129]I[178]1[164]6:D$(I)[178]D$:[130]:D$(8)[178]D$
22050 [139]CO[177]6[167][153]"? CODE ERROR.":[151]9,0:[158]9
22100 [129]I[178]1[164]I5[171]1:[153]""[200](R$,SI)D$(I):[130]:[142]
29999 [137]100
30000 [143]                                           ****  MENUE 2 ****
30010 [151]53280,0:[151]53281,0:[153]"LOAD";:[151]198,0
30100 [153]"";:[129]J[178]1[164]F:[139]J[178]DA[167][153]"SYS";
30105 [153]""C$(J)"":[130]
30110 X2[178]1073:[151]X2,62:[151]X2[170]54272,10
30120 [161]A$:[139]A$[178]""[167]30120
30125 [139][198](A$)[178]13[167]30200
30130 [139][194](653)[178]1[167]D[178][171]40:[137]30140
30135 D[178]40
30140 [139](X2[170]D)[179]1073[176](X2[170]D)[177]([194](209)[170]256[172][194](210))[167]30120
30150 [151]X2,32:X2[178]X2[170]D:[151]X2,62:[151]X2[170]54272,10:[137]30120
30200 :
30205 Z[178](X2[171]1073)[173]40[170]1:[153]"LOAD"C$(Z)" ";
30206 [139]F[179][177]23[167][142]
30210 S[178]0:[133]N$:[139]N$[178]"ERROR"[167]100
30215 [139]N$[178]"SIN"[176]N$[178]"*"[176]N$[178]""[167][153]"UNMOEGLICH.":[129]I[178]1[164]2000:[130]:[137]30205
30220 [139][201](N$,1)[178]"*"[167]S[178]1:N$[178][200](N$,[195](N$)[171]1)
30999 [142]
50000 [143] UMRECHNUNG LAUFENDER NUMMERN IN         SPUR- UND SEKTORNUMMERN
50010 :
50020 [139]N[177]356[167]50040
50030 SP[178][181](N[173]21)[170]1:SE[178]N[171](SP[171]1)[172]21:[142]
50040 [139]N[177]394[167]50060
50050 SP[178][181]((N[171]357)[173]19)[170]20:SE[178]N[171]357[171](SP[171]20)[172]19:[142]
50060 [139]N[177]451[167]50080
50070 SP[178][181]((N[171]395)[173]19)[170]22:SE[178]N[171]395[171](SP[171]22)[172]19:[142]
50080 [139]N[177]559[167]50090
50085 SP[178][181]((N[171]452)[173]18)[170]25:SE[178]N[171]452[171](SP[171]25)[172]18:[142]
50090 SP[178][181]((N[171]560)[173]17)[170]31:SE[178]N[171]560[171](SP[171]31)[172]17:[142]
51000 [143]
51010 [132]1,A,A$:[139]A[179]20[167][142]
51020 [153]""A$" -BITTE DISKETTE PRUEFEN !":[146]203,64:[146]203,63:[146]203,64
51030 FE[178]FE[170]1:[139]FE[177]4[167][153]"-VERSUCHSABBRUCH...":[129]I[178]1[164]3000:[130]:[138]
51040 [142]
60000 [131]NACHNAME,VORNAME,STRASSE,HAUSNUMMER,PLZ,WOHNORT,VORWAHL,TEL.,GEBURTSTAG
60010 [131]GEBURTSMONAT,GEBURTSJAHR,AUGENFARBE,HAARFARBE,PASS.NUMMER,GROESSE (CM)
60020 [131]UNVERAEND.KENNZ.,VERKEHRSMITTEL,FARBE,KENNZEICHEN,BERUF
60030 [131]SPRACHKENNTNISSE,KONTAKTPERSONEN,BESONDERHEITEN
60040 [131]CODE,SUCHE,EINGABE,VERBESSERN,"VERZEICHNISAENDERN"
60045 [131]VERZEICHNIS,HEADER,REPARATUR
60050 [131]ENDE,***,@@@